home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 June / 64er_Magazin_85-06_1985_Markt__Technik_de.d64 / demo ii (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  858b  |  40 lines
  1. 100 ifhthenpoke45,l:poke46,h
  2. 110 ifpeek(50000)=56andpeek(50001)=253then160
  3. 120 l=peek(45):h=peek(46)
  4. 130 a=1
  5. 140 load"scroll-machine",8,1
  6. 150 :
  7. 160 print"[147]":sys49152
  8. 170 ifusr(40960)<>160then:_ld"pseudo ii"
  9. 180 :
  10. 190 :
  11. 210 :
  12. 220 v=53248
  13. 230 print"[147]"
  14. 240 _rs:rem reset
  15. 250 _cp:rem zeichensatz kopieren
  16. 260 rem rasterzeilen waehlen
  17. 270 _rz106,115,232
  18. 280 rem fehler beseitigen
  19. 290 _su4
  20. 300 _mt40960,204,40:rem aa,xd,yd
  21. 310 rem video-ram
  22. 320 _vi52224+8*40,16
  23. 330 rem hintergrundfarben
  24. 340 _hf10,2,0
  25. 350 rem vordergrundfarbe
  26. 360 _zf2
  27. 370 _js2:rem joymode
  28. 380 rem beschleunigung u. hoechstgeschw.
  29. 390 _tb 16,16:_tg 10000,10000
  30. 400 _gm2:_gr0,204*8-21*8,0,40*8-16*8
  31. 410 _us1:rem soft-scroll an
  32. 420 print"eine solche konfiguration ist auch
  33. 430 [153]"moeglich. jedes fenster kann beliebig
  34. 440 print"gross sein.
  35. 450 [153]" joystick in port 2"
  36. 460 [151]214,22:[153]
  37. 470 [153]"dieser raum kann fuer das punktekonto
  38. 480 print"  etc. benuetzt werden.";
  39. 490 goto490
  40.